Public Class frmRebootClient

    Private Sub btnRebootClientNo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRebootClientNo.Click
        Me.Close()
    End Sub

    Private Sub btnRebootClientYes_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRebootClientYes.Click
        Dim msg As protocol

        msg.type = protocolType.A_forceClientReboot
        msg.message = frmMain.gridComputers.SelectedRows(0).Tag & "::" & numRebootClientDelay.Value * 60000

        MsgBox("If the client is currently on, then it will be rebooted.")
        frmMain.net.sendMessage(msg)

        Me.Close()
    End Sub
    Public Sub sendForceReboot()

    End Sub
End Class